program Project1; // Zadanie 5.3

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, pole: Real;

procedure pole_prostokata(x,y:Real); // przekazywanie parametrow przez wartosc
  begin
    pole:= x*y;
    Writeln('Pole prostokata o boku a = ', x:4:2, ' i boku b = ', y:4:2);
    Writeln('wynosi ', pole:4:2, '.');
  end;

begin
  Writeln('Program oblicza pole prostokata.');
  Writeln('Podaj bok a.');
  Readln(a);
  Writeln('Podaj bok b.');
  Readln(b);

  pole_prostokata(a, b); // wywolanie procedury z parametrami

  Readln; // czeka na nacisniecie klawisza ENTER
end.
